home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / utilitys / 34 / gfabasic / lissa.lst < prev    next >
File List  |  1986-10-19  |  134b  |  11 lines
  1. ' gfa basic demo
  2. Graphmode 3
  3. Q=5/3
  4. L=10
  5. Do
  6.   Add I,0.08
  7.   S=Sin(I)*300+320
  8.   C=Cos(I*Q)*180+200
  9.   Pbox S-L,C-L,S+L,C+L
  10. Loop
  11.